home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / media / resource.Dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-29  |  390 b   |  12 lines
  1. on stopMovie
  2.   global gObjCaptain
  3.   set clearList to [4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 32, 33]
  4.   repeat with x in clearList
  5.     set object to getaProp(the pRollRegistry of gObjCaptain, x)
  6.     if objectp(object) then
  7.       dispose(object)
  8.       setaProp(the pRollRegistry of gObjCaptain, x, 0)
  9.     end if
  10.   end repeat
  11. end
  12.